home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / Papers ‘93 / Voice Toolkit / Voice Button < prev    next >
Text File  |  1993-04-24  |  1KB  |  43 lines
  1.  
  2. (in-package "VOICE-TOOLKIT")
  3.  
  4. (export '(voice-button initialize-instance))
  5.  
  6. (defclass voice-button (button-dialog-item)
  7.   ((careful :accessor careful
  8.             :initarg :careful
  9.             :initform t)
  10.    (exclusive :accessor exclusive
  11.               :initarg :exclusive
  12.               :initform t)
  13.    (text-color :accessor text-color)
  14.    (text-font :accessor text-font)))
  15.  
  16. (defmethod text ((self voice-button))
  17.   (format nil "button ~a" 
  18.           (dialog-item-text self)))
  19.  
  20. (defmethod select ((self voice-button))
  21.   (if (dialog-item-action self)
  22.     (funcall (dialog-item-action self))))
  23.  
  24. (defmethod mark ((self voice-button))
  25.   (if (numberp *mark-method*)
  26.     (progn
  27.       (setf (text-color self) (part-color self :text))
  28.       (set-part-color self :text *mark-method*))
  29.     (progn
  30.       (setf (text-font self) (view-font self))
  31.       (set-view-font self (list (first (view-font self)) *mark-method*)))))
  32.  
  33. (defmethod unmark ((self voice-button))
  34.   (if (numberp *mark-method*)
  35.     (set-part-color self :text (text-color self))
  36.     (set-view-font self (text-font self))))
  37.  
  38. (defmethod initialize-instance ((self voice-button) &rest args)
  39.   (apply #'call-next-method (cons self (make-voice-shell args))))
  40.  
  41. (defmethod identify ((self voice-button))
  42.   (file-voice-item self))
  43.